load_car_info(Cars) :-
	open('cars.txt', read, Str), 
    read_car_info(Str, Cars), 
    close(Str). 

read_car_info(Stream, []) :-
	at_end_of_stream(Stream).
read_car_info(Stream, [X|L]):- 
	\+at_end_of_stream(Stream), 
	read(Stream, X), 
	read_car_info(Stream, L).